home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / users.fr_ / users.fr
Text File  |  1995-05-07  |  2KB  |  107 lines
  1. VERSION 4.00
  2. Begin VB.Form frmUsers 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3525
  5.    ClientLeft      =   2355
  6.    ClientTop       =   4260
  7.    ClientWidth     =   4710
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   3930
  18.    Left            =   2295
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   3525
  21.    ScaleWidth      =   4710
  22.    Top             =   3915
  23.    Width           =   4830
  24.    Begin VB.CommandButton cmdRemoveUser 
  25.       Caption         =   "&Remove User"
  26.       Default         =   -1  'True
  27.       Enabled         =   0   'False
  28.       Height          =   555
  29.       Left            =   360
  30.       TabIndex        =   2
  31.       Top             =   2520
  32.       Width           =   1755
  33.    End
  34.    Begin VB.CommandButton cmdClose 
  35.       Cancel          =   -1  'True
  36.       Caption         =   "Cl&ose"
  37.       Height          =   555
  38.       Left            =   2400
  39.       TabIndex        =   1
  40.       Top             =   2520
  41.       Width           =   1755
  42.    End
  43.    Begin VB.ListBox lstUsers 
  44.       Appearance      =   0  'Flat
  45.       Height          =   1785
  46.       Left            =   1080
  47.       Sorted          =   -1  'True
  48.       TabIndex        =   0
  49.       Top             =   360
  50.       Width           =   2295
  51.    End
  52. End
  53. Attribute VB_Name = "frmUsers"
  54. Attribute VB_Creatable = False
  55. Attribute VB_Exposed = False
  56. Option Explicit
  57.  
  58.  
  59. Private Sub cmdClose_Click()
  60.     Unload Me
  61. End Sub
  62.  
  63.  
  64. Private Sub cmdRemoveUser_Click()
  65.  
  66.     On Error GoTo RemoveError
  67.  
  68.     DBEngine.Workspaces(0).Groups(Me.Tag).Users.Delete lstUsers.Text
  69.     FillUserList
  70.     
  71. Exit Sub
  72.  
  73. RemoveError:
  74.     MsgBox Err.Description
  75. Exit Sub
  76.  
  77. End Sub
  78.  
  79. Private Sub Form_Activate()
  80.     
  81.     On Error GoTo ActivateError
  82.  
  83.     Me.Caption = "Users in Group " & Me.Tag
  84.     FillUserList
  85.     
  86. Exit Sub
  87.  
  88. ActivateError:
  89.     MsgBox Err.Description
  90. Exit Sub
  91.  
  92. End Sub
  93.  
  94. Sub FillUserList()
  95.     Dim usr As User
  96.  
  97.     lstUsers.Clear
  98.     For Each usr In DBEngine.Workspaces(0).Groups(Me.Tag).Users
  99.         lstUsers.AddItem usr.Name
  100.     Next
  101. End Sub
  102.  
  103. Private Sub lstUsers_Click()
  104.     cmdRemoveUser.Enabled = IIf(lstUsers.ListIndex = -1, False, True)
  105. End Sub
  106.  
  107.